﻿Option Strict On

Imports Microsoft.VisualBasic

Public Class News

    Private _NewsID As Integer
    Public Property NewsID() As Integer
        Get
            Return _NewsID
        End Get
        Set(ByVal value As Integer)
            _NewsID = value
        End Set
    End Property


    Private _Header As String
    Public Property Header() As String
        Get
            Return _Header
        End Get
        Set(ByVal value As String)
            _Header = value
        End Set
    End Property


    Private _Texten As String
    Public Property Texten() As String
        Get
            Return _Texten
        End Get
        Set(ByVal value As String)
            _Texten = value
        End Set
    End Property

    Public ReadOnly Property ShortTexten() As String
        Get
            If _Texten.Length > 150 Then
                Return _Texten.Substring(0, 150) & "..."
            Else
                Return _Texten
            End If
        End Get
    End Property

    Private _DateNews As Date
    Public Property DateNews() As Date
        Get
            Return _DateNews
        End Get
        Set(ByVal value As Date)
            _DateNews = value
        End Set
    End Property


    Private _UndermenuID As Integer
    Public Property UndermenuID() As Integer
        Get
            Return _UndermenuID
        End Get
        Set(ByVal value As Integer)
            _UndermenuID = value
        End Set
    End Property


    Private _CategoryName As String
    Public Property CategoryName() As String
        Get
            Return _CategoryName
        End Get
        Set(ByVal value As String)
            _CategoryName = value
        End Set
    End Property


    Private _NewsName As String
    Public Property NewsName() As String
        Get
            Return _NewsName
        End Get
        Set(ByVal value As String)
            _NewsName = value
        End Set
    End Property


    Private _NewsSection As Integer
    Public Property NewsSection() As Integer
        Get
            Return _NewsSection
        End Get
        Set(ByVal value As Integer)
            _NewsSection = value
        End Set
    End Property


    Private _NewsSectionID As Integer
    Public Property NewsSectionID() As Integer
        Get
            Return _NewsSectionID
        End Get
        Set(ByVal value As Integer)
            _NewsSectionID = value
        End Set
    End Property


    Private _StartPage As Boolean
    Public Property StartPage() As Boolean
        Get
            Return _StartPage
        End Get
        Set(ByVal value As Boolean)
            _StartPage = value
        End Set
    End Property

    Private _Prio As Boolean
    Public Property Prio() As Boolean
        Get
            Return _Prio
        End Get
        Set(ByVal value As Boolean)
            _Prio = value
        End Set
    End Property


    Private _Filename As String
    Public Property Filename() As String
        Get
            Return _Filename
        End Get
        Set(ByVal value As String)
            _Filename = value
        End Set
    End Property

End Class
